vielleicht so. beim Datum einfügen evtl. noch den Wert formatieren und hinter den Zellbezügen noch value dranhängen. Aber das probiere erstmal aus.
Sub Tabelle_Filtern_und_Kopieren()
Dim lrow As Long, lrow2 As Long
'-- Das Tabellenblatt aktivieren
With ThisWorkbook.Worksheets("Inventurliste")
'-- Filter Einstellungen auf Null setzen
.Range("Tabelle2").AutoFilter
'-- Filter wählen - Spalte:Bestellen = "-1" ( -1 = Rote Ampel! ; Filtere alle Artikel heraus bei denen die Mindestmenge unterschritten ist
.Range("Tabelle2").AutoFilter 12, "-1"
'-- Alle Daten aus Tabelle 2 mit der Autolter Einstellung "-1" (Rote Ampel Mindestmenge unterschritten) in Tabellenblatt Bestellliste untereinander kopieren
.Range("Tabelle2").Copy
End With
With Sheets("Bestellliste")
'-- Einfügen der Daten in erste freie Zeile von Spalte "D" in Bestellliste
lrow = .Cells(.Rows.Count, 4).End(xlUp).Offset(1, 0).Row
.Cells(lrow, 4).PasteSpecial xlPasteValues
'-- Kopiermodus beenden
Application.CutCopyMode = False
lrow2 = .Cells(Rows.Count, 4).End(xlUp)
.Range(Cells(lrow, 2), .Cells(lrow2, 2)) = ThisWorkbook.Worksheets("Inventurliste").Range("M4")
.Range(Cells(lrow, 3), .Cells(lrow2, 3)) = ThisWorkbook.Worksheets("Inventurliste").Range("N4")
End With
';-- Filter Einstellungen auf Null setzen
ThisWorkbook.Worksheets("Inventurliste").Range("Tabelle2").AutoFilter
End Sub
|